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i ABSTRACT: 
! This module parses the file identification field in the HDR1 and 


5 1 01 MODULE PARSE ( LANGUAGE ( entity De 

3 ¢ oe IDENT = ‘V04-000 

; 10 )= 

; : Bae BEGIN 

: § 0906 lenueneeeneenerenteereeeneneeeereerertrerertentrnerentnianetnensnttnetnnsnes 
3 Hi * 
; 8 0008 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
4 o 0009 ' DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 ? Berg i; ALL RIGHTS RESERVED. * 
Py > Y 
: ¢ pots 'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ® 
5 1 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 4 0014 'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 5 0015 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 6 8018 '@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: f id EA = TRANSFERRED. * 
Py 4 ~ 
: 3 0019 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 0 0020 'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 1 bos) : CORPORATION. * 
° ; & 
; 5 0098 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 4 0024 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
.. 2 0096 is : 
: i 8055 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeerereeaeeeeeeeeenenaneeeeeeceeeeeee 
: ¥ $080 yi 

> 31 0031 i FACILITY: MTAACP 

3 § 00 ; ! 

: 003 

; 0034 

: 0035 

; 00 

3 00 

3 00 

: 00 
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' 
‘ in the case of VMS long file names continued in the HDR4 or file 
§ $$ } name string, then generates and returns resultant file spec string. 
§ 38 ENVIRONMENT : 
0 0040 : STARLET operating system, including privileged system services 
1 goes and internal exec routines. 
: 3g aye 
$ 4 Bes 
3 5 5 ' 
3 6 Bpeg ! 
: 5 opee AUTHOR: David Michael Walp, CREATION DATE: 17-NOV-1981 
; 3 49 ; MODIFIED BY: 
; 51 1: vO3-003 mMD0282 Meg Dumont, 23-Mar-1984 10:31 
: ¢ 26 : Fix long file name support such that for ANSI version 
3 5 ! volumes it converts the exentsion length to 
3 : 38 } ASCII before writing it to the label. 
; 5 36 i V03-002 MMD0184 Meg Dumont, 6-Jul-1983 18:30 
: 5 ! Add support for $ and - as valid VMS characters to tape 
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16- $ 4 VAX=-11 Bliss-32 V4.0=742 ° 
14- ~Sep- 1982 13:28 DISKSVMSMASTER: CMTAACP.SRCIPARSE. 832: 19 © af 


V03-001 MMD0158 Dumont, cerhare 19es 9:21 
Add support for un erscore as a yet} d waned by to tape. Add 
support for VMS a file names includes: Changin 3 —, 
default file name sizes to papers the ane file nam 
the oiit??t ot FILE_SPEC_MAX. 2) Chan e the routines PARSE _HDRI FID 
to Pa and enhance to, up A beay By the rite maybe 


split Sotenen the HDR1 and H ls. Ch nef 
Length checked in PARSE OATTERN SPE = In RES CANT * STRING 
change Length of RESULTANT_MAX_CENGT 
V03-002 DMW00072 David Michael Walp 28-Jan-1981 
Fix wildcard characters in quoted string problem 
v03-001 var og David Michael Walp 11-Jan-1981 


Accept ANSI name in quotes thru file name parameters 


ef 
LIBRARY 'SYSS$LIBRARY:LIB.L32'; 
REQUIRE ‘SRCS$:MTADEF .B32'; 
FORWARD ROUTINE 
CALC_VERS 


10N : NOVALUE, ' calculate VMS version from ANSI 
PARSETARE : COMMON_CALL, parse the file id fields in HDR1 and HDR4 
PARSE PATTERN SPEC : COMMON CALL, | parse a input wildcard file spec. 
PARSE_QUOTED_RAME : COMMON ”CALL NOVA UE, ! parse a quoted 17 ANSI ‘a’ 
character file name 
RESULTANT_STRING : COMMON_CALL NOVALUE. ! prepare and return the 
resultant string name 
RETURN ss yg sPec, write back file name information 


parse a filespec into name + type 
STRIP_VERSIO : COMMON_CALL; i strips the version from file spec 
' 


1 
| PARS 16-Sep-1984 9 29:18 VAX-11 Bliss-32 V4.0-742 Page 
- 14-Sep-1984 46:46 DISKSVMSMASTER: CMTAACP. SRCIJPARSE.832;1 (2 
; 475 1 !44 
; £78 1! 
s 9 477 1 ! UPLIT was used instead of at eanenedien here, the code produced is the 
; © 478 1! same (ie the constant string generated). UPLIT was used because 
Pan Sy 0479 1 ! CHSTRANSTASLE generates a warning error because more then a single 
i a8 begs ' character at a time is specified in the ZASCII. ( BLISS KLUDGE 
: 100 pees 1 !<- 
; 101 04 1 
; 198 0484 1 GLOBAL BIND 
; 10 0485 1 
> 104 bree 1 ! This table will upcase a..z and return ‘a' for any non ANSI 
3 1? oa 1 ! ‘a’ characters. Bad characters are thus flaged. 
s 107 0489 1 ANSI_A_BAD = UPLIT BYTE ( Z%ASCII  Bonsspopponnnnacosogsopogssecese. 
: 108 0490 1 RASCII * !"'aate''()#4,-./0125456789: ;<=>?", 
; 109 0491 +1 ZASCII ‘@ABCOEFGHIJKLMNOPOQRSTUVWXYZaaaa_', 
: 110 0492 1 ZASCII ‘@ABCDEFGHIJKLMNOPOQRSTUVWXYZaaaaag', 
s 49) 0493 1 ZASCI1 '880000008000003000000000000000000', 
;. 33 § 0494 1 ZASCII '8800083809800000090000000000000000', 
TS 0495 1 ZASCII '88800800000000000000000000000000' , 
: : i Bee ! ZASCII ‘@9dadddVIAIIIIIAIAIAIAIAAAAAAAAA' ), 
; #116 0498 1 ! This table will upcase a..z and return space for any non ANSI 
3 ot e344 : ‘a' characters. Thus bad characters are converted to good characters. 
; («119 0501 1 ANSI_A_GOOD = UPLIT BYTE ( ASCII ° fe 
: 120 peng 1 ZASCII * !°" 28°" ()#4+,-./0123456789: ;<=>?', 
: 121 0503 1 ZASCII * ABCDEFGHIJKLMNOPQRS TUVWXYZ a 
s Yee 0504 1 ZASCII * ABCDEFGHIJKLMNOPQRSTUVWXYZ ee 
: 123 0505 1 ZASCII ' r 
: 1246 0506 (1 ZASCII ' of 
s .%e 0507 1 ZASCII ° va 
; te 0508 1 ZASCII ' ae 
> 127 0509 1 i 
: 128 0510 1 ' point to a ‘a’ 
3 $2 0511 1 } 
; 1350 B2t¢ 1 ESC_CHAR = ANS!_A_BAD; 
3 6131 0513 1 
3 138 0514 1 BIND 
3 33 0515 1 
: 32 0516 1 : This table will upcase a..z and return ‘'@' for any non-VMS character 
: ie Baie ! including wild cards 
3 139 6819 1 VMS_NO_WILD = UPLIT BYTE ( ZASCII ‘8808800380083800000000000000000000' , 
; «138 0520 1 ZASCI1 ‘a@aaa$eaaaaa000-080125456789aaaaa—0', 
; «#4139 0521 1 ZASCII ‘@ABCDEFGHIJKLMNOPQRSTUVWXYZaaaa_', 
j@ 140 05 § 1 ZASCII ‘@ABCDEFGHIJKLMNOPQRSTUVWXYZaaaaa', 
3: (741 05 1 ZASCII '80000800883000000080000000000000' , 
: ie 524 1 XASCII1 '€80000000000000800000000000000000' , 
; «(14 525 1 ZASCI1 '800000008000000000000000000000000' , 
: 1446 5 § 1 ZASCI1 ‘@addsdadaaaddaaI9IaIIIaTIaAaIA—Aa' ), 
; ig 358 | 
3 129 0399 1 ! This table will upcase a..z and return ‘a@' for any non-VMS character 
; re be89 ; ! wild cards ( %, * ) are valid characters in this table 
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1b-5e “1984 02:29:1 VAX=-11 Bliss-32 V4.0-742 Pa 5 
Vea8ep19RG 13:kese8 — DISKSVMGHASTERSEMTARCE GRCIPARSE.B32°4"° i 
GLOBAL ROUTINE PARSE_NAME_TYPE ( | 


+ 
aa 


FUNCTIONAL DESCRIPTION: 
iat routine parses a VMS file specification string into a name and type 
elds 


CALLING SEQUENCE: 
error = PARSE_NAME_TYPE ( ARG1, ARG2, ARG3, ARG4 ) 


INPUT PARAMETERS: 
ARG! = flags for "if wild cards are valid’ 
ARG2 = the Length of the file specification 
ARGS = the address of the file specification 


PAPAIN MN PPLE LEE 
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1 

1 

1 

1 
64 1 
65 } 
63 0 1 
68 0 1 
4 0 1 
0 0 1 
71 8 1 
Le: 1 
7 0 1 
74 0 1 
75 0 1 
76 0 1 
77 0 1 
78 0 1 
79 0 1 ! IMPLICIT INPUTS: 
80 0 1 none 
81 0 1 
og 0 1 OUTPUT PARAMETERS: 
8 0 1 ARG4 = pointer to the output buffer - size is updated 
Be 8 : ASSUMED THAT OUTPUT BUFFER >= FILE_SPEC_MAX BYTES 
86 0567 1 IMPLICIT OUTPUTS: 
87 0568 1 none 
88 0569 1 
89 0570 1 ROUTINE VALUE: 
90 0571 1 error code - SS$_NORMAL 
91 097¢ 1 - SS$"BADF ILENAME 
3 0573 «1 
9 bee 1 SIDE EFFECTS: 
94 575 1 none 
95 0576 1 
96 0577 1 !-- 
97 0578 #1 
98 0579 2 BEGIN 
99 0580 2 
00 0581 MAP 
01 B28¢ WILD_CARDS : BITVECTOR CC 1 J, 
4 058 SPEC_LEN : LONG, 

be SPEC_PTR : REF VECTOR f , BYTE }: 

Be ; 5 OuT_BESC : REF VECTOR C 2, LONG J; 
5] §3 EXTERNAL 
0 0588 LOCAL_FIB : BBLOCK; 
08 334 
09 5 LITERAL 
10 591 2 -FIELD_LEN = 33: ! Support for VMS long file 
3 23¢ MAX_TYPE_FIELD_LEN = 539; ! names 
8 594 LOCAL 
14 595 IN_ INDEX ! index into input file spec 
15 236 OUT_INDEX LONG, ! index into output file spec 
16 59 REM_LEN . ! size minus type field | 
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V00-500 12-Sep-19 4 93: 6:4 DISKSVMSMASTER:CMTAACP. SRCJPARSE.B32:1> (3) 

3; . 217 298 TABLE : REF VECTOR C 128, BYTE J, ! ptr to VMS file spec chars ; 
: 3 £4 - TYPE_LEN : LONG; ! size of type field ‘ 
3 9 et OUT_BUF = OUT_DESC C 1] : REF VECTOR C , BYTE J; ; 
; § ? § ; set up which table is to be use for translation : 
3 4 060s TABLE = ( IF .WILD CARDS C 0 ] THEN VMS_WILD ELSE VMS_NO_WILD ); ; 
: 6 60 ++ : 
; 7 060 : : 
; $ 0 ! PARSE the name field : 
. 610 ! ° 
: 230 611 ine ; 
: 1 pers : find the dot in the spec ( IN, INDEX points to it ) : 
; ; 061 ! point to the end of the spec Tf not found ; 
; Bete ; calculate the size of the name field ‘ 
: 235 0616 IN_INDEX = CHSFIND CH ( .SPEC_LEN, SPEC_PTRC OJ, '.' ); ; 
; 236 061 INTINDEX = ( IF CHSFAIL ( .INTINDEX ) : 
; Hf 0618 THEN .SPEC : 
; ; +884 ELSE .IN_INDEX - SPEC_PTRC 0) ); ° 
: 240 be } 1 test if the name field is too long ; 
; $ 96 ; If ( .INLINDEX GTR MAX_NAME_FIELD_LEN ) THEN RETURN SS$_BADFILENAME; : 
: 264 0625 ' move string into the output buffer and ; 
; tz be $ test for invalid characters in the name field : 
: 26 0628 iF 0 NEQ MOVTUC ( IN_INDEX, SPEC PTR FO J, ESC_CHAR, .TABLE. i 
; 248 0629 IN Out Bur C0) ) : 
i 349 9630 THEN RETURN SS$_BADFILENAME ; : 
; $30 06 § ' if all wild name flag is set stuff ‘'*’’ into output buffer F 
; 2 sth ; adjust output index : 
3 254 0635 IF .WILD_CARDS C 0 ) AND .LOCAL_FIB C FIBSV_ALLNAM J ; 
3 29 0636 THEN : 
; 28 0637 BEGIN : 
: 5 0638 OUT_BuF C 0 J = ‘#'; : 
; 258 0639 OUT” INDEX = 1; 3 
; 259 0640 : 
; $9 veh ELSE OUT_INDEX = .IN_INDEX; : 
; $6 5 : stuff the dot into the output buffer : 
; 264 5 OUT_BUF C .OUT_INDEX ] = *.'; ; 
: 265 Deeg : 
; 06 ++ : 
: § dec 7 
: 268 ! PARSE the type field 3 
im ORE : 
: 71 3g i} QUT_INDEX now points to the next avaliable output character : 
3 Le 3837 IN_INDEX now points to the start of type field : 


PARS 18-5 Sep-1984 VAX=11 Bliss-32_V4.0-762 7 
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> 274 5 out INDEX = .OUT INDEX + 1; : 
: t ss NLINDEX = .IN_INDEX + 1; ; 
; i 638 t find the end of the type field : 
; 8 660 REM_LEN = .SPEC LEN ~ «IN INDEX; ; 
3 si 1 TYPE_LEN = CHS SFIAD RED LEN, esr5° PTR C .IN_INDEX J, ' ' ); ; 
; 5] $66 TYPEZLEN vA S CHSFAIL TYPE LL ; 
; 83 0664 eUse “RERUN - ae C .IN_INDEX J ); 3 
3 Be 008 , test if the type field is ton long ; 
3 of b668 if ( .TYPE_LEN GTR MAX_TYPE_FIELD_LEN ) THEN RETURN SS$_BADFILENAME; 
; 4 0870 a test if all trailing characters are spaces 
: 291 067 M_LEN = .REM_LEN = .TYPE_LEN; 
; 3 0678 iF ROT CHSFA AIL Tt 
; 29 0674 CHSFIND_NOT_CH ( .REM_LEN, SPEC_PTR C .IN_INDEX + .TYPE_LEN J, ‘ * )) 
; 338 0675 THEN RETURN Noss _BADF ILENAME? 
1s 2% 0677 ! move string into the output buffer 
: 344 beo5 test for invalid characters in the type field 
: 299 0680 REM_LEN = .OUT DESC C 0) = .OUT_INDEX;: 
: 300 0681 IF 0 NEQ MOVTUT ( C TYPE LEN, SPEC"PTR IN INDEX J, ESC_CHAR, .TABLE, 
: 301 eT REM CEN, OUT_BUF -OUT_INDEX } ) 
; $0 p68? THEN RETURN SS$ _BADE ILENAME ; 
; 302 0685 ! if all wild type flag is set stuff ‘'*"’ into output buffer 
; $02 Bons ! adjust output length 
; 306 068 ! 
; 307 0688 
: 309 $690 BEGIN 
: 310 0691 OUT_BUF C .OUT_INDEX J = 's'; 
; i 069 Out “DESC C 0 J°= .OUT_INDEX + 1; 
3 18 se) $ ELSE OUT DESC C 0 ] = .OUT_INDEX + .TYPE_LEN; 
: 315 0696 2 RETURN SS$_NORMAL; 
; 316 0697 1 END; ! end of routine PARSE_NAME_TYPE 


-TITLE PARSE 
IDENT \v04-000\ 
-PSECT S$CODES,NOWRT,2 


40 40 40 40 40 40 40 Q0000 P.AAA: .ASCII \a@a0088000000800000000000000000000\ 3 
40 40 40 40 40 $8 re POOF ; 
¢¢ $2 4 $8 $4 1 8 0 5 eASCIIT \ !°OORE' 0) #4, -./0123456789: 5 <=>7\ : 

33 3 2 F O2F : 
46 45 44 43 42 41 if hs ASCII \@ABCDEFGHI JKLMNOPQRSTUVWXYZaaaa_\ : 


| 
if; wito_ CARDS C 0 ) AND .LOCAL_FIB C FIBSV_ALLTYP J 
| 
| 


CCC CCS LLL CC LL LL ttt ttt — = 


¥ 1 | 

PARS 16-Sep-1984 02:29:1 VAX=-11 Bliss-32 V4.0-742 P 

V06= 12-808- 1382 95: eR DISKSVMSMASTER:CMTAACP. SRCJPARSE.B32:1> (33 
40 40 40 SA 59 58 57 56 55 54 53 52 51 50 i 0 ; ; 
SE 4D 4C 4B GA 49 48 47 46 45 46 43 42 41 4 -ASCII \@ABCDEFGHIJKLMNOPORSTUVWXYZaaaaa\ : ; 
40 40 46 SA 59 58 57 56 38 54 53 $3 34 30 oF rf , . : ; 
40 40 40 40 40 40 40 40 40 40 4 40 4 49 40 00 5 .ASCI] \aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\ ; ; 
40 40 40 40 40 40 40 40 40 40 40 40 4 4 4 0 F : ; 
40 40 40 40 40 40 40 40 40 40 40 40 40 40 4 G0Kb .ASCI1 \aaaaaaaaaaaaaaaaaaaaaaaaaagagaaa\ : : 
40 40 40 40 40 40 40 40 40 40 40 40 40 4 4 Oar : ; 
40 40 40 40 40 40 40 4 40 40 4 40 4 40 4 O95 .ASCII \@aaaaaaaadaaaaaaaaaaaaaaaagaaaaa\ : ; 
40 40 40 40 40 40 40 40 40 40 40 40 4 4 4 OOcr : : 
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 000€0 .ASCI] \aaaaaaaaadaaaaaaaaaaaaaaaagagaaa\ : ; 
40 40 40 40 40 40 40 40 40 40 40 40 4 4 40 QOEF : ; 
0 20 20 20 20 20 20 20 20 20 0 0 00100 P.AAB: ASCII \ \ : : 
PRERHRRRR RRR REE ED : : 
E 2D 2C 28 2A 29 28 27 5 2 21 20 091 ASCII Vf" £8"°() 84+, *,/0123456789: :<=>7\ : : 
SRERSRH LHRH REG SED : : 
4E 4D 4C 4B GA 49 48 47 46 45 46 43 42 41 26 00140 ASCII \ ABCDEFGHIJKLMNOPQRSTUVWXYZ = __\ : : 
20 20 20 SA 59 58 57 56 55 54 53 52 51 30 or 00146 : 
4E 4D 4C 4B 4A 49 48 47 46 45 44 43 42 41 3 00160 ASCII \ ABCDEFGHIJKLMNOPORS TUVWXYZ \ : : 
20 20 20 SA 59 58 57 56 55 54 53 52 51 50 ar OO16r : 
0 20 20 20 20 30 20 20 30 20 20 20 20 $5 0 00180 ASCII \ \ : F 
0 20 20 20 20 20 20 20 20 20 20 20 20 20 ‘ aur : 
20 20 20 20 20 20 20 20 20 20 20 20 20 $6 20 O1AD ASCII \ \ : : 
20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 QOIAF ; 
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 001C0 ASCII \ \ : : 
20 20 20 20 20 20 20 20 20 20 20 20 20 0 0 OOIcr : 
20 20 20 20 20 20 20 20 30 20 20 20 20 0 20 O001E0 ASCII \ \ : ; 
20 20 20 20 20 20 20 20 20 20 20 20 20 20 : OOTEE : 
40 40 40 40 40 40 40 40 40 40 40 40 48 40 40 0 00 P.AAC: .ASCII \@0000080000090000000009000000000\ : : 
40 40 40 40 40 40 40 40 40 40 40 40 4 40 40 0 OF : 
40 20 40 40 40 40 40 40 40 40 34 49 40 4 é9 § 6 .ASCII \aaaaSaaaaaaaa-aa0123456789aaaaaa\ : F 
40 40 40 40 39 38 37 36 35 34 33 32 31 ; 40 0 F : 
4E 4D 4C 4B 4A 49 48 47 46 45 44 43 42 41 40 00 io ASCII \@ABCDEF GHI JKLMNOPORSTUVWXY Zaaaa_\ : ; 
40 40 40 SA 59 58 57 56 55 54 53 52 51 50 af 0 af : 
4E 4D 4C 4B 4A 49 48 47 46 45 44 43 42 41 to p i -ASCII \@ABCDEF GHI JKLMNOPORSTUVWXY Zaaaaa\ : : 
40 40 40 SA 59 58 57 56 55 54 53 52 5 5 af gf ; 
40 40 40 40 40 40 40 40 40 4 40 40 40 40 4 .ASCI] \@a@adaaaaaaaaaasaaaaaaaaaaaaaaaaa\ : ; 
40 40 40 40 40 40 40 40 40 40 40 40 4 4 4 F 2 
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 A .ASCI] \@aaaaaaaaaaaaaaadaaaaaaaaaaaaaaaa\ : F 
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ANSI_A_BAD== 
ANSI 7A G00D== 


- ENTRY 


\00900000000000000000000000000000\ 
\@0900000009000000090000000000000\ 
\@0900000000000000000000000000000\ 
\@000$%0000*00-000123456789aaaaaa\ 
\@ABCDEF GHI JKLMNOPQRSTUVWXYZaaaa_\ 
\@ABCDEF GHI JKLMNOPQRSTUVWXYZaaaaa\ 
\@0000000008200000000000000000000\ 
\00000000000000000000000000000000\ 
\09009000090000000000900000000000\ 


\2@00009000900000000000800000000000\ 
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#4, OUT DESC, RB 
WILD CARDS, 1 
VMS_QILD, TABLE 


VMS_NO_WILD, TABLE 
SPEC_PTR 
#46,~SPEC_LEN, (R7) 
3$ 

R1 

R1, IN_INDEX 
PEC_LEN, IN_INDEX 


R7,_IN_INDEX 
IN_ INDEX, #39 
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E_LEN, #39 
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E-LEN, IN_INDEX, RO 
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v04= 107$98-1 382 aa DISKSVMSMASTER: CMTAACP. SRCIPARSE.B32;1 (4) 
GLOBAL ROUTINE PARSE_QUOTED_NAME ( SPEC_LEN, 
OUT_BESC’) : COMMON_CALL NOVALUE = 


144 
' 
! FUNCTIONAL DESCRIPTION: 

Parses a quoted name string. It is ASSUMED that the string has had 
the outer quotes ptripped away ( STRIP_VERSION does this ). This 
routine will check all the characters Tn the otr ing are valid ANSI ‘‘a’’, 
will compress double quotes to single quotes and check that the final 
+ tig A no larger then FILE_SPEC_MAX characters. It will error 
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SIDE EFFECTS: 


! 
i 
i 
i 
i 
exit something is found to be incorrect. 
i CALLING SEQUENCE: 
PARSE_QUOTED_NAME ( ARG1, ARG2, ARG3 ) 
33 7 i INPUT PARAMETERS: 
6 7 ! ARG1 = The size of the input string 
He 7 ARG2 = The address of the input string 
§ i IMPLICIT INPUTS: 
40 none 
i OUTPUT PARAMETERS: 
: ARG3 = The address of a descriptor pointing to the output buffer. The 
! size field is updated. 
ASSUMED OUTPUT BUFFER SIZE >= FILE_SPEC_MAX BYTES 
i IMPLICIT OUTPUTS: 
; none 
3 i ROUTINE VALUE: 
; none 
} 
: 
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none 
BEGIN 
EXTERNAL REGISTER ! so we can call ERR_EXIT 
COMMON_REG; 
3 
6 P 
64 SPEC_LEN : LONG, 
65 SPEC_PTR : REF VECTOR f . BYTE J, 
: OuT_BESC : REF VECTOR C 2, LONG J; 
4 LOCAL 
4 IN_ INDEX : LONG, ! index into the input string 
5 MOVE SIZE : LONG, ! number of characters to be moved 
73 QUOTE_CHAR : REF VECTOR C , BYTE J;! Location of a quota character 
BIND 
75 OUT_INDEX = OVT_DESC C0], 


S$ 


1 

PARS 1b-se -1984 02:29:1 VAX-11 Bliss<-32 V4.0-742 Page 12 

04-500 12-8 08-1 3b 9g: 6:4 DISKSVMSMASTER: CMTAACP. SRCIPARSE .B32:1> (4) 

: 1 , 5 OUT_BUF = OUT_DESC C 1]: REF VECTOR C , BYTE J; : 
: 37 7 $ ' initialize the indices ; 
; 378 7 8 ! 3 
: 79 7 IN_INDEX = 8: s 
; £68 OUT_INDEX = 0; : 
; ; 196 : loop for each string ending with a quote : 
: 384 0764 WHILE NOT CHSFAIL ( ; 
; 85 3793 QJOTE_CHAR = CHSFIND_CH ( .SPEC_LEN, SPEC_PTR C —— ~~. 8 : 
; By O77 BEGIN 3 
: 89 64 ' calculate the number of characters to be moved 3 
3 + faa and test for output buffer overflow : 
: 39 0776 MOVE_SIZE = ( .QUOTE_CHAR - SPEC_PTR C .IN_INDEX J] ) + 1; : 
; 39 077 IF ("MOVE SIZE + .OOT_ INDEX ) GTR FILE_SPEC_MAX 3 
; 3% 977% THEN ERR_ERIT ( SS$_BADFILENAME ); ; 
: 396 0776 ! adjust the number of characters remaining 3 
3 144 2444 ; check that the next character is there and is a quote : 
: 399 0779 SPEC_LEN = .SPEC_LEN = ( .MOVE SIZE + 1); : 
; 400 0780 4 IF (~.SPEC_LEN LSS 0 ) OR ¢ .QUOTE_CHAR C 1 J NEQ '’" ) ; 
3 rtf 149 3 THEN ERR_ERIT ( SSS$_BADFILENAME ); : 
: 40 0783 ! move and test for invalid the characters Including the quote : 
3 tbe ore } character in the move : 
: 406 0786 if © NEQ MOVTUC ( MOVE_SIZE, SPEC_PTR C .IN_INDEX }. ESC_CHAR, ; 
: 407 444 ANSI_A_BAD, MOVE-SIZE, OUT_BuUF ~OUT_ INDEX ) ; 
: 408 0788 THEN ERR_ERIT ( SS$_BADFILENAME J; ; 
3; 409 0789 3 
: 610 0790 ' adjust the indices ; 
3 411 0791 ! 3 
: 1g 1454 IN_INDEX = .IN_INDEX + .MOVE_SIZE + 1; : 
> 41 79 OUT_INDEX = .OUT_INDEX + .MOVE SIZE; ; 
: 416 0794 END; 3 
; 615 795 Fs 
; 416 796 ' test for output buffer overflow : 
: 617 0797 : 3 
; 2\8 $434 IF ( .SPEC_LEN + .OUT_INDEX ) GTR FILE_SPEC_MAX : 
$ rth 4444 THEN ERR_ERIT ( SS$_BADFILENAME ); : 
; i 9801 ! move and check for invalid character Baz: 3 
; 4 § 0 if 0 NEQ MOVTUC ( SPEC_LEN, SPEC_PTR f - IN_INDEX - ESC_CHAR, ANSI_A_BAD, : 
: 426 Be P EN OuT_Bu -OUT_INDEX ) Fr 
: 425 5 THEN ERR_EXIT ( SS$_BADFILENAME™); ; 
i 426 806 OUT_INDER = .OUT_INDEX + .SPEC_LEN; ; 
: 428 308 END; ! end of routine PARSE_QUOTED_NAME : 


: Routine Size: 173 bytes, Routine Base: $CODE$ + 04DC 


m1 
PARS Sep- VAX=11 Bliss-32 V4.0-742 Page 
vou=00 1e-86p- 1984 93:28:48 DISkSVMGMAS ER :CMTAACP. SRCIJPARSE.B32: 1" ( 

. ( 
ee 
07FC 00000 “ENTRY PARSE nip NAME, Save R2,R3,R4,R5,R6,R7,- ; 0698 e | 
57 Or Ac BO 00002 mov. Gut mbes 3 0754 4 
A 06 A? 9E MOVAB SCR. RION. : 0755 3 
36 D4 0000A CURL” IN, INDEX : 0759 ] 
67 D4 0000C CLRL_ = (R7) ; 0760 = 
53 56 0 at Gt 1$ ADDL3 SPEC_PTR, IN INDEX, R2 : 0765 1 
6 04 AC A 0001 Loce, | #34, "SPEC_LER, (RES : . 
12 9001 BNE = 2$ ; . | 
1 D4 QO01A CLRL RI : * 
59 1 DO OOOI1C 28:  MOVL  =R1, QUOTE_CHAR : me 
28 13 001F BEQL_ 8$ : 0766 : 
51 59 £3 000¢1 SUBL3 R2, QUOTE CHAR, 1 : 0772 : 
58 01 AT 9E 00025 MOVARB «1(R1), SIZE pals. § 
51 58 67 C1 00029 ADDLS (RI) “MOVE size. RI ; 0773 s | 
sere vt a ll : : 
0818 8F BF 000 6 CHMU_ #2072 $0774 3 | 
50 04 AC 38 C3 OOO3A 38: SUBL3. MOVE SIZE. SPEC LEN, RO : 0779 : | 
04 AC FF AO 96 O005t MOVAB =1(RO), SPEC_ : : | 
06 19 00044 BLSS  —4$ : 0780 5 | 
22 01 A9 91 00046 CMPB = 1 (QUOTE CHAR), #34 ; ; | 
04 13 O004A BEQL © 5$ ; ; | 
0818 8F BF 0004C 43: CHMU #2072 : 0781 . 

50 6A $7 £1 00050 58 ADDL3. (R7), (R10), RO : 0787 ; 
FACS CF = OFACB CCF 08 BC46 28 eF 00054 MOVTUC MOVE ayia aSPEC_ ~PTRCIN, INDEXI. ESC_CHAR, = ; : 
02 1D 00061 BVS $ ; @ 
51 D4 00063 CLRL RT : : 
31 DS 00065 6s TSTL RI : 0786 s 
04 13 00067 BEQL ; ; 
0818 8F BF 00069 CHMU =. #2072 ; 0788 3 | 
56 01 AB4G 9E 00060 78: — MOVAB —ICMOVE SIZE)CIN_ INDEX], IN_INDEX : 079 3 | 
67 38 60 00072 ADDL E_SIZE, (R7)~ : 079 a | 
97 11 0007 BRB > 0764 yy 
50 04 Ac 67 C1 00077 8$: § ADDL3 = (R7),_SPEC_LEN, RO : 0798 ; | 
0000004F BF 30 1 9007¢ CMPL’ RO, 479 ; 2 | 
0818 8F BF 00085 CHMU_ #2072 : 0799 3 | 
50 6A 67 C1 00089 98: ADDL (RZ). (R10 > 0804 3 | 
FABB OCF =CFABE” CF 08 B46 04 AC 2F 00080 NOVTUC SPEC. “LEM ASEEC PrRCIN, INDEX, ESC_CHAR, - ; .*) 
03 1p 9009¢ BVS =—s«108 ~ ; 3 | 
T D4 9009 CLRL RI 3 3 
31 D3 O00A9 108: STL RI ; 0803 $f 
04 13 OOOA BEQL «=-'11$ 2 : 
0818 8F BF QO0A4 CH #2072 : 0805 3 
67 04 AC CO QO0AB 118: — ADDL2 = SPEC_LEN, (R7) > 0806 3 | 
AC RET ; 0808 : | 
| 
> | 
an 
. 4 
' 4 
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v04- 192808= 1382 teat DISKSVMSMASTER:CMTAACP. SRCIPARSE.B32: 1° (5) 
; 430 9 1 GLOBAL ROUTINE STRIP_VERSION ( FILE_SPEC_LEN, 
> 431 10 1 FILE_SPEC_PTR, 
; 4 g 11.=#1 WILD VERSION, 
3; 4 \¢ 1 QUOTED _NAME 
: 434 0 13 1 ) : COMMON_CALL = 
; 435 14 #1 
; 4 8 15 1 !44 
: 4 a8 1! 
3 4 0817 1 ! FUNCTIONAL DESCRIPTICN: 
; 439 0818 1! This routine strips the version number from a ASCII VMS file 
: 440 0819 1! specification, and if the file spec contains a quoted name the outer 
> 441 01! quotes are stripped by arivectes the pointer and size parameters and 
: 3 1 : a check is make for a null type field. 
> 444 08 : 1 ! CALLING SEQUENCE: 
; re 4 ¢ : version_number = STRIP_VERSION ( ARG1, ARG2, ARG3, ARG4 ) 
3 447 08 § 1 ! INPUT PARAMETERS: 
>; 448 08 1; ARG1 = the Length of the file specification 
: 449 0828 1! ARG2 = the address of the address of the file specification buffer 
; 450 +4 1! ARGS - flag set if wild card version is allowed 
> 4$1 0830 1! 
: 45 0831 1 ! IMPLICIT INPUTS: 
: 45 peas 3 none 
3 4454 0833 1! 
; 455 te: 1 ! OUTPUT PARAMETERS: 
; 456 0835 1! ARG1 = the Length of the file specification minus the version number 
: 457 0836 1! and it delimiter 
: 458 0837 1! ARG2 = the address of the file specification 
: > 459 0838 1! ARGS - A flag set if a quoted name was found 
; 460 0839 1! 
; 461 0840 1 ! IMPLICIT OUTPUTS: 
; 46 tre 7} none 
: 46 0 rk: 1! 
: 464 0845 1 ! ROUTINE VALUE: 
; 465 0844 1! the version number 
: 466 0845 1! 
3; $67 0846 1 ! SIDE EFFECTS: 
; 468 0847 1! none 
: 469 0848 1! 
: 470 0849 1 !-- 
3 «471 tht 1 
; ri! 851 BEGIN 
: 474 OBs8 EXTERNAL ROUTINE ! ASCII decimal to binary 
3 of? S2¢ LIBSCVT_DTB : ADDRESSING_MODE ( ABSOLUTE ); 
: 47 856 EXTERNAL REGISTER ! so we can call ERR_EXIT 
3 47 32 COMMON ; 
3; 47 58 
3 re] + #4 MAP 
3: «481 860 FILE_SPEC_LEN : REF VECTOR C 1, LONG }°j the size of the file spec 
: 48 61 FILE_SPEC_PTR : REF VECTOR C 1,_LONG ' ote to the file spec pre 
: $83 ¢ WILD" VERSTON : BITVECTOR 1 te : wild version allowed flag 
; re o QUOTED_NAME : REF BITVECTOR 1 J; ! quoted name, return flag 
: 4486 5 BIND 
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16-Sep-1984 02:29:18 VAX=1 
18-Sep-1984 95: e8 ile DISKS 
FILE_SPEC_BUF = FILE_SPEC_PTR C0]: REF VECTOR C , eye ] 

: es 


1 Bliss-32 V4.0-742 P 
VMSMASTER: CMTAACP. SRCIPARSE .B32; 


pec buffer 


point to the f 
LOCAL 
QUOTED_NAME_LEN : LONG, ! Length of the quoted string 
QUOTED NAME_PTR : LONG, ' address of the quoted string 
VERSION : LONG, ! the version number — 
VERSION_PTR : REF VECTOR C , BYTE J,! ptr to the ASCII version 
VERSION_LEN : LONG; ! the size of ASCII version 


test for the quoted string in the name field 
QUOTED NAME [0] = FALSE: x 
ven -FILE_SPEC_LEN C GEQ 2 ) AND ( .FILE_SPEC_BUF C 0 J EQt ‘*” ) 
BEGIN 
LABEL FIND_END_QUOTE; 
FIND_END_QUOTE: 
BEGIN 
! Loop from the end of the string forward until a ''" is found 
' Note: if the last character is ‘' the name is invalid because 
' at least a version delimitor is needed 


' 
DECR I FROM ( .FILE_SPEC_LENC 0] -2) 101 D0 
IF F 1LE_SPEC_80F fe oe Ou 


N 
BEGIN 


! found a quoted string save the info and set FILE_SPEC_xxx 
to point to the rest of the string 


QUOTED_NAME [0 J] = TRUE; 

QUOTED-NAME_PTR = FILE.SPEC_BUF C 1 2; 

QUOTED NAME LEN = .1-"1; 

FILE_SPEC_PTR 0 } = FILE_SPEC_BuUF C .1 +17: 
FILE~SPEC”LEN = .FILE_SPEC_LENC OJ) - ('.1 +1); 


J 
LEAVE FINBD_END_QUOTE; 
END; 


Never found the end quote so err_exit 
ERR_EXIT ( SS$_BADFILENAME ); 
END; 


test for a null type field which is: 
sannnn : 
.3nnnnn where nnnnn is zero or more digits 
»eAnnnn 


if ( .FILE_SPEC_LEN f 0 : GEQU 1 ) 
AND ( .FILE~SPEC "BUF EQL ';") 
THEN VERSIOR_PTR™= FILE_SPEC_BUF C 0 J 


ELSE IF ( .FILE_SPEC_LEN C 0 J GEQU 2 ) 


2 
1b-s6 -1984 29:18 VAX-11 Bliss-32 V4.0-742 Page 16) 
12-88-1382 0b eae DISKSVMSMASTER: [MTAACP. SRCIPARSE .B32:1> wed 
: 544 0923 4 AND ( .FILE_SPEC_BUF C0 J EQ. _'." ) 
; 545 83 4 5 AND ( ( .FILE_SPEC_BUF f 1 } EQ. ‘.' 
: 948 955 4 OR ( :FILE~SPEC~BUF ¢ 11 EQL ':')) | 
; «54 09 § THEN VERSION PTR’ = FICE SPEC BUF C 1 
; 548 3 ELSE ERR_EXIT ( SSS$_BADFILENAME ); 
; 549 928 END 
; 550 0929 
s Sor 0930 ELSE 
3 226 83 1 BEGIN 
: 8e 0938 ! We have a normal VMS file specification | 
3 356 ba check for ‘‘;version number" 
: 557 Bae VERSION_PTR = CHSFIND_CH ( .FILE_SPEC_LEN ‘ 0], 
; 558 0937 -FILE-SPEC-PTR C 0 2, 
; 559 0938 "2" 43 
; 560 0939 IF CHSFAIL ( .VERSION_PTR ) 
: 561 0940 3 THEN 
3 266 0941 4 BEGIN 
; 56 0942 4 ; 
> 564 0943 4 ! now look for ‘’..version number" 
; 565 0944 4 ! 
; 566 0945 4 VERSION_PTR = CHSFINC_CH ( .FILE_SPEC_LEN C 0], 
: 567 0946 4 -FILE-SPEC-PTR C 0 3, 
: 568 0947 4 oF 
: 4 boe8 ? IF CHSFAIL ( .VERSION_PTR ) THEN ERR_EXIT ( SSS$_BADFILENAME ); 
; a 34! : move pass the delimitor and look for the second dot 
TM. 6 0326 4 VERSION_PTR = .VERSION_PTR + 1; 
3: 574 095 4 VERSION_LEN = -FILE_SPEC_LEN CO0jJ- 
s S7> 0954 4 ( .VERSION_PTR - .FILE_SPEC_PTR C0] ); 
; 376 0955 4 VERSION_PTR = CHSFIND_CH ( .VERSION_LEN, .VERSION-PTR, '." ); 
: 577 0956 4 IF CHSFAIL ( .VERSIONTPTR ) THEN ERR_EXIT ( SS$_BADFILEVER ): 
; 578 0957 3 END; 
: 579 0958 2 END; 
; 580 0959 2 
$ 3B 944 § move pass the delimitor and to the ASCII decimal number 
: 588 Bee 2 VERSION_PTR = .VERSION_PTR + 1; 
: At 0964 ! ASCII to binary translation, if wildcards are allowed turn ‘'s'' into 0 
: 586 0965 ' Note: a version number size of zero is valid and will be returned as zero 
s og? Boe } Note: the version number size will never be less than zero 
: 589 968 VERSION_LEN = .FILE_SPEC_LEN C0) - 
; 590 0969 -VERSION_PTR - .FILE_SPEC_PTR C 0] ); 
: 591 970 IF NOT LIBSCVT_DTB ( VERSION_LEN, -VERSION_PTR, VERSION J 
; 3 971 THEN IF .WILD VERSION 
; 59 97 AND ( .VERSION_LEN Fo. Fe. 
3; 594 97 AND ( .VERSION_PTR }) EQL ‘* ) 
: 595 974 THEN VERSION = 
: 298 af? ELSE ERR_EXIT ( SS$_BADFILEVER ); 
5 306 $7 adjust the pointer and size fields of the name and type field 
; 400 097 IF .QUOTED_NAME C 0 J 
| 
| 
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16-5ep-1984 18 VAX-11 Bliss- -32 V4.0-742 ge 17 PAR 
14- ~3ep - 7 5: eid 46 DISKSVMSMASTER: CMTAACP. SRCIPARSE. B32. 7% 65) v04 
; 601 980 THEN 31 
; o8 : 1 BEGIN : } 
3 ORE 03 § : @ quoted name return saved size and pointer : ! 
: 606 985 FILE_SPEC_LEN = .QUOTED_NAME_LEN; 37 
; 607 0986 FILE-SPEC"PTR ; : = ,QUOTED"NAME_PTR; : 1 
: 608 98 END ~ 31 
: 609 0988 31 
; gi9 $980 cuts the si f the fil d i h i b 

M4 : return e size of the e name and typé minus the version number ; 
: 61g 991 i and its det initor #8 i 
; 616 0993 FILE_SPEC_LEN C 0 ] = .FILE_SPEC_LEN C 0 J = ( .VERSION_LEN + 1 ); : } 
: 616 0995 ' return the version number 3 
: 617 0996 i : 1 
: 618 0997 RETURN .VERSION;: : 1 
; 619 0998 1 END; ! end of routine STRIP_VERSION ; : 
2 
-EXTRN LIBSCVT_DTB : : 
007¢ 00000 .ENTRY STRIP_VERSION, Save R2,R3,R4,R5,R6 : 0809 31 
5E 04 C3 00002 SUBL2 : : 31 
5 08 AC DO 00005 MOVL F Le SPEC_PTR, R3 3 0866 i | 
54 53 D0 00009 MOVL : 31 
10 BC 07 8A 0000C BICB2 @QUOTED_NAME : 0879 31 
02 04 BC D1 00010 CMPL ni _SPEC_CEN, #2 + 0880 31 
72 19 00014 BLSS : 31 
22 00 B4 91 00016 CMPB ss @O(R4), #34 : 31 
6C le OOO1A BNEQ 7$ : 31 
50 04 BC 01 C3 0001C SUBL3 #1, @FILE_SPEC_LEN, I > 0892 71 
27 «11 90021 BRB ; 31 
22 00 B440 91 00023 1$ CMPB =s-« BO(R4)CIJ, #34 : 0893 31 
20 M2 00028 BNEQ : 31 
10 BC 01 88 0002A BISB2 #1, @QUOTED_NAME + 0900 31 
56 64 01 C1 0002E ADDL3 #1. (Ra) QUOTED_NAME_PTR : 0901 31 
52 FF AO 9E 00032 MOVAB -1(R0), QUOTED_NAME_LEN : 090 31 
51 64 50 C1 000 ADDL3 I has, R1 : 090 :1 
63 01 «Al H 003A MOV 1(R1), (R3) ; 31 
51 04 BC 50 ¢3 000 SUBL3 I, @FILE_SPEC_LEN, R1 > 0904 a | 
04 BC FF OA H 04 MOVAB =-{(R1), SFILE-SPEC_LEN : 31 
07 1 4 BRB : 0905 :1 
D6 0 F5 OO4A 2$ SOBGTR | : 0893 31 
0818 BF BF 00040 CHMU =: #2072 : 0910 71 
04 BC D3 0051 3$ TSTL @FILE_SPEC_LEN : 0918 :1 
B 13 00054 BEQL 3 3:1 
38 00 B4 91 6 CMPB 3s @0(R4), #59 : 0919 31 
54% 5A BNEQ 3 3 1 
55 64 D 5c MOVL (R4), VERSION_PTR + 0920 :1 
66 1 SF BRB 1 : 31 
02 06 BC 01 6 4$: CMPL @FILE_SPEC_LEN, #2 : 0922 31 
B iF 3 BLSSU : 71 
2e 00 B4 91 0006 CMPB a0(R4), #46 > 0923 31 
15 12 00068 BNEQ 6 ; 31 

| 


e 
PARS 1b-5¢ =1984 02:29:18 | VAK-11 Bliss-32 V4.0-742 Page 18 PAR 
v04-000 eager aee FSi eai Tg NeeeedwaAgfeccHtAgce Secaparse.e32n4" clo. v04 
50 64 00 D MOVL (R4), RO : 0924 :] 
2e 01 AO 9 5 CMPB 1(ROS, #46 : 7) 
06 1 74 BEQL 6 5$ : 7] 
38 01 AO 91 00076 CMPB = 1(RO), #59 ; 0925 :] 
06 lg O7A BNEQ 6$ : :] 
55 64 oi ¢1 i 5$ ADDLS #1, (R4), VERSION PTR ; 0926 : I 
0818 F BF 0082 6s CHMU = #2072 ; 0927 : 1 
F 11 000 BRB 12$ ; 0880 7] 
00 B83 046 BC 3A 90 7$ LOCC © #59, @FILE_SPEC_LEN, @0(R3) ; 0936 2] 
2 aa : : 
55 1 09 § 92 8$ MOVL R1, VERSION_PTR : 31 
0 12 0009 BNEG = 128 ; 0939 : 1 
00 B3 04 BC : 3A 00097 LOCC #46, @FILE_SPEC_LEN, a0(R3) + 0945 33 
87 De 000% ke Oat i] 
55 51 09 200 9$ MOVL R11, VERSION_PTR : 31 
04 12 000A4 BNEG 10$ + 0948 3} 
0818 8 BF O00A6 CHMU #2072 ; : 1 
5 bg OOOAA 108: INCL VERSION_PTR : 0952 : 3 
50 08 BC 55 CC S00A¢ suBL $ VERSION-PTR, @FILE_SPEC_PTR, RO + 0954 31 
54 50 06 BC ci 0081 ADDL3 aFILE_SPEC_CLEN, RO; VERSION LEN : 31 
65 54 2— 3A 90086 LOCC }0— «#46, VERSION. LEN (ve VERSION. PTR) + 0955 31 
02 12 OOOBA BNEQ 11$ : 31 
51 D4 000BC CLRL aR : 3] 
55 51 09 S008 11$:  MOVL 1, VERSION_PTR : 31 
04 12 000C1 BNEQ leg : 0956 31 
0820 8F BF O90¢5 CHMU #2080 ; 31 
55 Dg 00C7 12$: INCL_ VERSION_PTR + 0962 37 
50 08 BC 55 ¢3 000C9 UBL3 VERSION-PTR, @FILE_SPEC_PTR, RO : 0969 ; 1 
54 50 94 Bc C1 b00cE ADDL3  aF ILE SPEC LE CEN, RO; VERSION.LEN : 3:7 
4030 8F 688 000D PUSHR #*M<RZ,R : 0970 37 
000000006 9F 03 FB 0007 CALLS #3, aac tasevt _DTB : 71 
16 0 €8 OO0DE BLBS 0; 14$ : 27 
OE Oc AC €9 000E1 BLBC WILD _VERSION, 13$ : 0971 37 
01 54 D1 OO0ES CMPL VERSTON_LEN, #1 3 0972 3 7 
09 if 00E8 BNEQ : 31 
2A 65 91 OOOEA CMPB = (VERSION_PTR), #42 : 0973 31 
04 12 000ED BNEQ : | 31 
6E D4 OOOEF CLAL VERSION : 0974 31 
04 11 OOOF1 BRB 14$ : 31 
0820 8F BF OOF 3 13$: CHMU #2080 : 0975 31 
OA 1 ¢ 9 OOF 14$: BLBC  @QUOTED_NAME, 15$ : 0979 31 
4 BC 00 FB MOVL § QUOTED_NAME_LEN, a@FILE_SPEC_LEN : 0985 :1 
8 BC 6 p OOF MOVE QUOTED. NAME_PTR, @FILE_SPEC_PTR ; pae8 : ! 
50 04 BC 4 BY 1 é 15$:  SUBL3 VERS ON LEN, af iL LE _SPEC_LEN, RO : 0993 31 
HB BE BSR es, ROVE aon, tmdE=SPEESEE ‘ovor| [EY 
Be $195 RET ; 0998 : : 
3; Routine Size: 275 bytes, Routine Base: S$CODE$ + 0589 : ! 
: 1 
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ps 19 
CP.SRCIPARSE .B32; (6) 


| 
| 
| 

; 1 3444 ! GLOBAL ROUTINE CALC_VERSION ( VERSION ) : NOVALUE = 

; 6 § 1 01 1 t+¢ | 

: 624 1 § 1! 

> 625 1005 1 ! FUNCTIONAL DESCRIPTION: 

= & § 10046 1! his routine calculates version number from generation and generation 

; 6 1005 1! version. 

; 628 1 38 1 ! 

; 629 1007 1 ! CALLING SEQUENCE: 

: 630 1008 1 i CALC_VERSION ( ARGI ) | 

; 631 1009 1! 

3 6 ¢ 1919 1 ! INPUT PARAMETERS: 

; 6 1011 1! None 

3; § 18ig 1! 

; 635 1015 1 ! IMPLICIT INPUTS: 

3 oes 1313 ; HDR1 = address of hdri Label for current file 

; 638 1ot8 1 ! OUTPUT PARAMETERS: 

5 or) + 4 : ARG] = address of two bytes to receive binary version number 

3; 641 1019 1 ! IMPLICIT OUTPUTS: 

3 ong 1020 1! None 

; 64 1021 1! 

> 644 19e¢ 1 ! ROUTINE VALUE: 

; 645 10 1; None 

; 646 10246 1! 

: 647 Se 1 ! SIDE EFFECTS: : 

; 648 1026 1! ARG] receives binary version number 

> 649 et 1! 

; 650 1028 1 !-- 

; 651 1029 1 

; $36 1030 BEGIN 

; 65 1031 

3; 654 1036 EXTERNAL 

3 oe? Vez HDR1 : REF BBLOCK; ! addr of HDR1 ( EOF1 ) Label 

; 657 1035 EXTERNAL ROUTINE 

3 $28 1936 LIBSCVT_DTB : ADDRESSING_MODE ( ABSOLUTE ); ! convert decimal to binary 

; 660 1038 P 

3 $6) Ht VERSION : REF BBLOCK C 2 ]; ! a pointer to a word 

3 668 1041 MACRO REF _WORD = 0, 8. 16, 0 2; ! ref to the ist word | 

; 664 1966 MACRO REF_15B1T = 0, 0, 15, 0 2; ! ref to the Ist fifteen bits 

: 665 1 

: 608 1044 LOCAL | 

; 66 1045 GEN_NUM : LONG, ! binary generation number | 

3; 668 1966 GEN_VER : LONG; ! binary generation version 

; 669 104 

: 670 1048 ' clear version # 

; 671 1049 ! 

; ore : 39 VERSION C REF_WORD ] = 0; 

2 | 

; 674 1038 ! binary version # = (generation number - 1) * 100 + generation version + 1 

; 67? 193? ; convert gemeration number to binary | 

; 67 1055 IF LIBSCVT_DTB ( HDISS_GENNO, HDRIC HD1ST_GENNO J, GEN_NUM ) | 
| 


2 
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; } § THEN 

Hi convert gen version number to binary 

; 1060 IF LIBSCVT_DTB ( HDISS_GENVER, HDR1 C HDIST_GENVER J, GEN_VER ) 

; 1303 THEN 

1988 NOTE: The HIGH BIT in the VERSION NUMBER is always ZERO 

: 199? VERSION C REF_15BIT ] = ( .GEN_NUM = 1 ) * 100 + .GEN_VER + 1; 

3 1067 END; ! end of routine CALC_VERSION 


-EXTRN HDR1 


0004 00000 .ENTRY CALC_VERSION, Save R2 : 0999 
52 000000006 9F i 0002 MOV aALIBSCVT_DTB, R2 ; 
5E 08 C2 0000 SUBL2 #8, SP ; 
04 BC B84 0000C CLRW  aVERSION + 1050 
3 DD OOOOF PUSH + 1055 
7E 00006 CF : C1 00011 ADDL3 #35, HDR1, -(SP) : 
4 DD 00017 PUSHL ; 
62 03 FB 00019 CALLS #3, LIBSCVT_DTB : 
2 50 £9 0001C¢ BLBC ~—_ RO. - 18 : 
04 AE F O001F PUSHAB GEN_VER + 1060 
7E 00006 CF 27 C1 00022 ADDL3 #397 HDR1, -(SP) ; 
Oe DD 00028 PUSHL # ; 
62 0 FB 00 A CALLS #3, L1BSCVT_DTB ; 
16 50 £9 0002D BLBC ~—_ RO,._*1$ : 
50 E 00000064 &8F C5 00030 MULL3. #100, GEN_NUM, RO + 1065 
0 04 AE CO 00038 ADDL2 GEN_VER, RO s 
51 90 Ao H 0003¢ MOVAB -99TRO). R1 ; 
046 BC OF 00 51 FO 00040 INSV R1, #0, #15, @VERSION ; 
04 00046 18: RE + 1067 


; Routine Size: 71 bytes, Routine Base: S$CODE$ + 069C 
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- 71984 93: 6:4 DI SKSVMSMASTE 
GLOBAL ROUTINE PARSE_FID ( ete it 


fON ) : COMMON_CALL 
ee 


FUNCTIONAL DESCRIPTION: 
This routine parses the File Identifier Field in HDR1 and HDR4, then 
calculates the version number from the generation fields. 


CALLING SEQUENCE: 
vms_spec = PARSE_FID ( ARG1, ARG2 ) 


INPUT PARAMETERS: 
ARG] = wy i tis to file spe 
ASSUMED OUTPUT BUFFER 
ARG2 = pointer to a word to ho 


IMPLICIT INPUTS: 


' 
i 
i 
i 
i 
i 
i 
i 
i 
ation output buffer 
' 

i 

i 

HDR1 and HDR4 Label 
i 

' 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


ific 
SIZE >= FILE_SPEC_MAX BYTES 
ld the version number 


Cc 


! OUTPUT PARAMETERS: 
ARG1 = descriptor to file specification output buffer 
ARG2 = pointer to a word to hold the version number 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
TRUE = if the spec in HDR’? is a ‘VMS type specification’ 
FALSE = otherwise 
SIDE EFFECTS: 
none 
BEGIN 
EXTERNAL REGISTER 
COMMON 3 
EXTERNAL ROUTINE ! ASCII decimal to binary 
LIBSCVT_DTB : ADDRESSING_MODE ( ABSOLUTE ); 
eaten 
HDR : REF BBLOCK, ! addr of HDR1 ( EOF1 ) Label 
HDR4 : REF BBLOCK; ! addr of HDR4 ( EOF4 ) Label 
LOCAL 


: REF meat 
FILE_ID : VECTOR CFILE_SPEC_MAX,BYTE); 


FILE_SPEC_ DESC : REF VECTOR f e LONG J, 
FILE-VERSTON : REF VECTOR » WORD J; 


! calculate the version number 
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2 4 - Pp e 2 PAR 
2:29:18 VAX-17 Bliss-32 V4.0-742 Pag VO4 
¥042500 ~300 71 38% 95:99:18 DISKSVMSMASTER: CMTAACP. SRCIJPARSE .B32;1 (3 a 
: 74 1} 5 CALC_VERSION ( .FILE_VERSION ); 
: $88 1 > ! Space fill the storage for the FILE_ID 3 | 
; , ; i : CHSFILL(* *,FILE_SPEC_MAX,FILE_ID); Sen 
4 1 and HDR4 Label into one common s : 
2 OR i : eed = Sighs Bag Be aaa the translation. The HDR4 Label contains 
RHE Sf peek oP ei HEE BR eerste ab tte tastier one gone treo . 
: 5 8 i ¢ i tye A locations depending on the ANSI version stored 
: 759 11 6 i im the VOL1 Label. i] 
; ret 1 : ! First copy the HDR1 file id ; 
; re 1146 CHSMOVE(HD1ISS_FILEID, HDRICHDIST_FILEIDJ, FILE_ID(0]); 
; res 1149 ! The get the HDR4 file id extension 
: 766 11 ; 
: RRENT_VCBCVCBSL_MVL); 
: re 1148 tre. nv. EHV SB. STDVER] GTR™3 ; 
: 769 1146 i 1 
: on 1148 oie .HORGCHD4SB_FILEID_EXT_SIZE) GTRU 0 7: 
; a 1180 CHS. “IVE ( .HDR4CHD4$B ~ HTEE TDCHB ISS Zé) PPiLel RStHDSST FILEID_EXTI, 
+ 77% 1151 : 
: 775 1126 END 
: 776 115 ELSE 
fe LE BEEN 
; f XT_v3, 
me Os HF tir clbhcvt srocmeah st Par Die vs, suze 
: 780 1158 THEN SIZE = 0 
; eS 1t2r HORGCHD4$ST_FILEID_EXT), 
: oe 189 seagate FILES {DCHDISS FILE IONS. 
3 «784 1161 
; 785 1166 END; 
: ; 7 1164 ! Parse the file id field in the HDR1 
; re 1166 IF NOT PARSE_NAME_TYPE ( te gic Rh S. “ie allow wild cards 
; 790 
ae} 1188 HtEcID eee “DESC ) 
; 79 1169 
; 73 1171 san ich d t conform to 
; : ANSI name which does not co 
; 1198 ins" § "4 Pita A + Be move the field from the header to the 
: 38 1174 ' ou cet buffer 
7: ee secin ae 
; 500 179 CHSTRANSLATE ( ANSI_A oop ILE SPEC, DESC 0 F rae 311 Svec “ESC C11); 
; 03 1199 FILE_SPEC_DESC C 0 J = FILE_SPEC_MAX; 
: 80 1180 RETURN FALSE; 
; Bo 1181 END 
} 


ELSE RETURN TRUE; 


; Routine Size: 


So 
oOo 


SPViwwvUwi> wr -POoOPyp-OProor,ry 
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VSPAOOOuooe 
Qomnwmnow 


01 


SCODES + 06E3 


SOOoOOooooooooooooooooooooooooooooooooooooo 
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Se SSS SSR ARERR eS SSS Sssesese 
OVMIDOVIOM BS NN DW HAL OOW— M OUIWOM S NS DALO 


SOLES MOWOL YS "FT OOO FOODS "SO —-OFPWUID—COWBO OwWomMmo 


I) 
MOVTC 
MOVZBL 
CLRL 


RET 
MOVL 
RET 


4 02:29:18 VAX-11 Bliss-32 V4.0-742 ou 
Hn 95:98 DISKSVMSMASTER:CMTAACP. SRCIPARSE.B32:1> 3 


! end of routine PARSE_HDR1_FID 


HDR4 
pense FID we R2,R3,R4,R5,R6 
ge 


F 
#, GALC VERSION 
#0, (SP), #32, #79, FILE_ID 


HDR1, RO 
#17, 4(RO), FILE_ID 
52 (CURRENT _VCB) , MVL 
HDR4, R 
34(MVL), #3 
1$ 
4 (RO) 
3$ 
4(RO), R1 
R1, 5(RO), FILE_1D+17 
3$ 
SP 
67(RO) 
#3, @#LIBSCVT_DTB 
RO, 2$ 
site 

§ 
HDR4, RO 
SIZE. 5(RO), FILE_1D+17 
FILE _SPEC_DESC. Rb 
FILE_ID 
05 (SP) 

(SP 


(SP) 
#4, PARSE_NAME_TYPE 


R 
#79, FILE_ID, #32, ANSI_A_GOOD, (R6), - 


a4 (R6) 
#79, (R6) 
RO 


#1, RO 


Pee Se Se Be Se Se Se Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Se Be Se Be Se Be Se Be Se Be Se Se Se Be Se Se Se Be Se 


ene 


ALSE ) , 
using ASCNAME attribute 


K 2 
PARS 16-Sep-1984 02:29:18 VAX-11 Bliss-32 V4.0-742 Page 24 
02-500 13788-1382 96: eiae DISKSVMSMASTER: LMTAACP. SRCIPARSE.B32: 1° BS 
; 810 11 $ 1 GLOBAL ROUTINE PARSE_PATTERN_SPEC ( FILE .sPeC DESC, 
; 811 11 1 FILE- VERSION 
3 \¢ 11 : 1 ) : COMMON_CALL = 
; 81 11 1 
: 814 1190 1 i+ 
; 815 1191 1! 
3 18 1138 1 ! FUNCTIONAL DESCRIPTION: 
; 81 1195 1! This routine parses a string given to the ACP by the user which is 
; 518 113¢ ! } used as a pattern string matching string by the find operation 
3 0 1138 1 ! CALLING SEQUENCE: 
: 1 1135 } vms_spec = PARSE_PATTERN_SPEC ( ARG1, ARG2 ) 
3; & i 1199 1 ! INPUT PARAMETERS: 
; 824 1200 1! ARG] - Cooes tater to file specification output buffer 
; 825 1201 1! ASSUMED OUTPUT BUFFER SIZE >= FILE_SPEC_MAX BYTES 
3 $ : 8g : H ARG2 = pointer to a word to hold the version number 
; 828 12046 1 ! IMPLICIT INPUTS: 
3 4 1205 1! 10_PACKET 
; 830 1206 1! 
; 831 1207 1 ! OUTPUT PARAMETERS: 
: He 1208 1! ARG1 = descriptor to file specification output buffer 
: th : 4 : ARG2 - pointer to a word to hold the version number 
; 835 1211 1 =! IMPLICIT OUTPUTS: 
; 836 1 \¢ 1! none 
3; 837 1213 1! 
; 838 1214 1 ! ROUTINE VALUE: 
3; 839 1215 1! Bit 0 set - if the spec is wild for quoted name. ie ‘'*.*'' or ‘'*,"' 
; 840 isig 1! Bit 1 set - if it was a VMS spec 
3; «841 1217 1! 
; ate 1218 1 ! SIDE EFFECTS: 
3; 84 1219 1! none 
3; 844 1220 1! 
3; ©6845 1221 1 !-- 
3 846 \ss¢ 2 BEGIN 
3; 847 122 
; 848 1224 EXTERNAL REGISTER ! so we can call ERR_EXIT 
2 849 1225 COMMON_REG; 
; 850 1226 
; 851 1227 EXTERNAL 
5 336 : 3 I10_PACKET : REF BBLOCK; 
3 B34 1250 MAP 
3; 855 1231 FILE_SPEC_DESC : REF VECTOR f 2, LONG }: 
3 $28 ' § FILE-VERSTON : REF VECTOR C 1, WORD J; 
H 58 1 LITERAL 
s 59 1235 WILD QUOTED = 7B'0O1', 
$ : ' § 1S_VAS_SPEC = %8'10'; 
: § 1238 LOCAL 
3 \ , ABD : REF BBLOCKVECTOR C_, ABDSC_LENGTH J, 
3 1241 
: 1242 


SETS. 


1b-5¢ gone te 0g: 9:18 VAX-11 Bliss-32 V4.0-742 ¥t 
14-Sep-1984 6:46 DISKSVMSMASTER: CMTAACP. SRCIPARSE. 832; ) 
! 
i 


3 7 1243 ATTR_PTR LONG, ointer {nts the ACP butter descr . 
; 8 1244 ATTR_LENGTH : LONG. ength of the attr ‘ 
3 $2 1245 INPUT_ADD address of. input ile. name string ; 
; 0 1 $ INPUT" LENGTH Length of input file name stri ng : 
i 871 47 QUOTED _NAME + Li ¥eicron C1 i; ! flag set if the file spec is in "'s : 
: 7 } 4 ABD = .BBLOCK C .IO_PACKET C IRPSL_SVAPTE J, AIBSL_DESCRIPT J; ‘ 
; 15 : : ; scan to see if the find should be done by the ASCII name attribute ; 
; 87 1 : DECRU I FROM ( .JO_PACKETCIRPSW_BCNT] - 1 ) TO ABDSC_ATTRIB DO : 
; a8 : ee BEGIN : 
3 4] ! 2$ find the attribute code and see if it matches ASCII name ; 
: ase 1258 ATTR var = Bh. “hs ABDSW_TEXT ] + ABD C .1, ABDSW_TEXT J; ° 
; 88 1259 If .T.ATTR PIR > EQL ATRSC_ASCNAME ; 
> 884 1260 THEN ° 
>; 885 1261 4 BEGIN : 
; 886 1 6 4 ; 
; 887 1263 4 : set up the size of the attribute ‘ 
> 888 1264 4 ! : 
; 889 1265 4 ATTR_LENGTH = .ABDC.1, ABD$W_COUNT); ; 
; 890 1266 4 . 
; 891 1267 4 ! check Length of file name : 
; 89 1268 4 ! , ; 
; 89 1269 4 IF_.ATTR_LENGTH LEQ FILE_SPEC_MAX ; 
3: 894 1270 4 THE ’ 
; 895 1271 5§ BEGIN ; 
: 896 1 Le 5 : 
; 897 1275 5 ! set up the pointer to the attribute text : 
; 898 1274 5§ ! : 
; 899 1275 § ATTR_PTR = .ATTR_PTR + 1; : 
; 909 1276 5 : 
3 oo igre 3 translate into upper case and check for invaiid characters . 
; 90 1279 5 if 0 EQL MOVTUC( tM LENGTH gArte PTR, ESC_CHAK. ANSI_A_BAD : 
> 904 1280 5 FILESPEC_DESC C 07), -FILE-SPEC_pcsc CT) § 3 
s; 9 1281 5 THEN : 
; 906 1 3 6 BEGIN ‘ 
; 907 1283 6 : 
; 208 : Be ° we have a valid ANSI file spec to the find operation on : 
; 910 1 be 6 ASCII_NAME_SPEC C_0_] = TRUE; : 
: 911 1 6 FILE at esc C0] = AUER LENGTH; : 
3 alg 1288 EXIT TCOO : 
: 914 1290 : 
3; 5 1291 4 END; : 
; aig 1 3 4 3 
; Wi 129 END; 3 
; 3i8 1294 : 
; (91 1295 END; : 
: 920 1 38 : : 
: 1 : 44 : pick up the name pattern string from the name attribute : 
; 9 g 1299 INPUT_LENGTH = .ABD C ABDSC_NAME, ABDSW_COUNT J; : 


PARS 16- se-1984 2 95:49:] 18 VAX-11 Bliss-32 V4.0-742 Page (Bo 


v04-000 14*Sep-1 46 DI SKSVMGMASTERSEMTARCE. SRCIPARSE .832;1 
; 924 1 9 INPUT_ADDR = .ABD € ABDSC_NAME, ABDSW_TEXT 

3 4 5 : 4 + ABD C ABDSC~ NAME, ABDSW “TEXT * 13 

3 3 ? ! 08 } strip the version number 

: 929 1505 FILE_VERSION C 0 J = STRIP_VERSION ( INPUT LENGTH, 

; 930 1 $ t NPUT 

: 931 1 allow wild cards 
2 : 1308 QuoTeD.n 

; 93 1309 ); 

; 934 1310 

; 3 5 } \} } parse the filename if not from ASCNAME 

; 937 1 18 IF NOT .ASCII_NAME_SPEC C 0 J 

: o38 1314 THEN 

; 939 1315 BEGIN 

; 940 1 16 . 

3 ae) ; i call the correct parse routine 

: Pk 1319 3 IF NOT .QUOTED_NAME [ 0 J 

> 944 1320 3 THEN 

; 945 1321 4 BEGIN 

: 946 13 ¢ 4 

: 947 1 4 BIND 

; 948 1324 4 STAR_DOT_STAR = UPLIT ( ‘#,#' ), 

; 949 1325 4 STAR_DOT = STAR_DOT_ STAR; 

; 950 1326 4 

: 4} 1350 : H parse the filename into name —_ type 

; 328 1399 4 IF NOT PARSE_NAME_T%rE ( _TRUE ! “at Low wild cards 

> 954 1330 4 Putt 

; 955 1331 4 

; 956 1336 4 re T<ADDR, bESC ) 

: 997 1333 4 THEN ERR_EXIT ( SSS “paorit thine’s 3 

; 959 1336 4 ! test if ‘"*.*"' or ‘#."' ( match alll’ non-VMS file specs on tape ) 
: 960 1336 4 ' 

; 961 1330 4 if CHSEQL ( 3 STAR_DOT_STAR 

; 306 1338 4 FILE_SPEC_DESC C 0 J, |.FILE_SPEC _DESC cS de O32 
; 96 1339 4 THEN RETURN is_ VHS SPEC OR WILD_QUOTED 

3: 964 1340 4 ELSE 

; 965 1341 5 BEGIN 

; 966 1342 5 IF CHSEQL ( 2 STAR_DOT 

3; 967 1347 2 FILE SPEC_DESC C ], -FILE_SPEC_DESC Se SE 
; 968 1344 THEN RETURN 1S_VMS_SPEC OR WILD_QUOTED 

3; 969 134? 5 ELSE RETURN IS_VM *. SPEC 

; 970 1346 4 END; 

3; 971 1347 4 END 

s 376 1348 4 

: 97 1349 3 ELSE 

3: 974 1350 4 BEGIN 

3; 975 1351 4 

: 44 ! § ? Parse the quoted name string 

3 278 1 ez 4 PARSE_QUOTED_NAME ( .INPUT_LENGTH, 

3; 97 1 2? 4 - INPUT_ADDR 

: 980 1356 4 "FILE.SPEC_OESC ); 
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PARSE _PATTERN_SPEC, Save R2,R3,R4,R5,R6,R7,~-; 1186 


TTR 


ABD) CI 
+, A 
“LENG 


INPUT_ADDR 
INPUT“LENGT 
#4, STRIP_VERSION 


TTR_PTR), #16 
SPEC_DESC, R6 

LENGTH, (ATTR_PTR) 
A_BAD, (R6), 34(R6 


NAME _SPEC 
TH, (R6) 


NPUT LENGTH 


3 
: 

CROJ, INPUT_ADDR 
D_NAME 


> 981 1357 4 RETURN FALSE; 
3; 9 ¢ 1 H END; 
: 5 i, : 60 es 
; oe2 ! 2 ; ELSE RETURN FALSE; 
; 987 1 ra END; ! end of routine PARSE_PATTERN_SPEC 
00773 
00 2A 2E 2A 00774 P.AAE: 
STAR_DOT 
STAR_DO 
07FC 00000 
5E 10 ¢2 00008 
6E 94 0000 
50 0000G CF 00 00007 
58 §5 BO pe 0000C 
57 AO 3C 00010 
41 11 00014 
50 6847 7E 00016 1$: 
SA 0 3x BeoiA 
5A 0 CO 00010 
10 6A 91 00020 
32 12 00023 
02 A847 7F 00025 
59 9E 3C 00029 
0000004F 8F 59 D1 888 
2 14 000 
A 06 000 
56 04 AC 00 00037 
6A 59 2F 00038 
B6 66 0044 
0 1D 00047 
1 D4 00049 
51 05 00048 2$: 
08 1 Bnee 
oF H 88 0004F 
FO SBE 
. sp Bf Bite 
AE 1 AB C $2 4$: 
51 1 A E 6 
ie 1 A180 SE 0006A 
b4 "AE SF 0007 
01 OD 7? 
1 AE 9F 7 
1 AE 9F 7 
CF 04 FB 00078 
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-$ep-1984 02:29:18 VAX-11 Bliss-32 V4.0-742 Page 28 

b-sen-1984 96 eee DISKSVMSMASTER: LMTAACP. SRCIJPARSE .B32:1> (BS 
08 BC 50 BO 00080 MOVW RO, @FILE_VERSION : : 
4B 6E £8 00084 BLBS § ASCII_NAME SPEC, 9$ : 1313 : 
3 4 AE €8 00087 BLBS § QUOTED NAME, 8$ + 1319 ; 
4 AC OD 0 B PUSHL FILE SPEC_DESC + 1332 : 
C AE ODD F PUSHL UT_ADDR + 1331 : 
14 AE DD 0009 PUSHL INPUT“LENGTH + 1330 ; 
7 DD 00094 PUSHL + 1329 : 
FBED CF 4 FB 096 CALLS #4, PARSE_NAME_TYPE : : 
04 0 £8 00098 BLBS ; : 
0818 8F BF O9E CHMU #2072 + 1333 : 
54 04 aC pO OOA S$: MOVL FILE SPEC_DESC, R4 : 1338 : 
64 00 FFS1 = CF on 03 D OA6 CMPCS #3, STAR_DOT_STAR, #0, (R4), a4(R4) : 1337 : 
08 3 SOAP BEQL 6s : ‘ 
64 00 FF46 OCF 02 2D 00081 CMPCS #2, STAR_DOT, #0, (R4), @4(R4) + 1342 : 
04 —B4 000B8 ; : 
04 12 OO0BA BNEQ 7$ ; : 
50 03 00 OOOBC 68: MOVL #3, RO + 1344 : 
04 000BF RET ; : 
50 02 00 000CO 7s: MOVL #2, RO + 1345 : 
04 000¢3 RET + 1350 : 
04 AC DD 000C4 8s: PUSHL fILE_SPEC_DESC : 1356 : 
OC AE DD 000C7 PUSHL INPUT_ADDR + 1355 : 
14 AE DD OOOCA PUSHL INPUT~LENGTH : 1354 : 
FC92.—sCCEF 03 FB 000CD CALLS #3, PARSE_QUOTED_NAME : ; 

50 D4 00002 9$: CLRL — RO + 1363 

04 00004 RET : 


; Routine Size: 213 bytes, Routine Base: S$CODE$ + 0778 
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3 
18-se -1984 02:29:18 VAX-11 Bliss-32 V4.0-742 Page 29 
12-9 08- 1 3b 95 Rae DISKSVMSMASTER: CMTAACP. SRCIPARSE .B32:1> (3) 
989 GLOBAL ROUTINE RESULTANT_STRING ( VMS_NAME 
990 ILE_SPEC_LEN, 
991 FILE SPEC_PTR, 
99 VERSTON 
99 
994 ++ 
995 
996 FUNCTIONAL DESCRIPTION: 
a4 This routine prepares and returns the resultant string name 
999 CALLING SEQUENCE: 
4 RESULTANT_STRING ( ARG1, ARG2, ARG3, ARG4 ) 
Oe INPUT PARAMETERS: 
00 ARG] = flag ( set if a VMS file spec ) 


aa - length of file specifiation ( name dot type ) 
ARGS = pointer to file specification ( name dot type ) 
ARGS = the file version number 


333 


EXTERNAL ROUTINE : 
SYSSFAO : ADDRESSING_MODE ( ABSOLUTE ); ! format the string 


map the input agruments into data structures 


WAP 


007 

008 IMPLICIT INPUTS: 

SP none 

011 OUTPUT PARAMETERS: 

oi¢ none 

01 

014 IMPLICIT OUTPUTS: 

015 none 

016 : 
017 ROUTINE VALUE: 

018 none ; 
019 

020 SIDE EFFECTS: : 
os resulant string is returned to the user : : 
055 -- 3; € 
Ose BEGIN : : 
026 EXTERNAL REGISTER COMMON_REG; ! so we can call ERR_EXIT : ' 
° 3 EXTERNAL WORK_AREA; ! general use scratch area ; 
030 

1 

038 

0 

0 

0 

0 

0 


a re ee ee ee ee eS 


) : COMMON CALL NOVALUE = 
| 
| 


PIP DPIPIPIPIPINPININININIPINIAPIMPINIAIDN NINA a i i a td td td od 


de ec em ee ed od ed 2d wd wd wd = I 


34 
5 
% VMS _NAME : BITVECTOR C 1], 
37 FILE_SPEC_LEN : LONG, 
38 FILE SPEC_PTR : REF VECTOR C , BYTE J, 
39 VERSTON : LONG; 
040 
041 LITERAL 
ak RESULTANT_MAX_LEN = 164; ! max size of resultant name 
044 LOCAL 
045 OUT_INDEX : LONG, ! index into output buffer 


dD 3 
PARS Jo~sen~ 1386 98:99:18 VAX-11 Bliss-32 V4.0-742 Page 30) 
v04- 14-Sep-1984 :46:46 DISKSVMSMASTER: CMTAACP.SRCIPARSE.B32;1 (9) 
: 19h6 i$ : RESULTAWT_DESC : VECTOR C 2, LONG J; ! descriptor for resultant name 
: 1048 14 BIND 
3: 1049 1424 RESULTANT NAME = WORK AREA : VECTOR C RESULTANT_MAX_LEN, BYTE J, 
; 1050 1425 FAO_VERSION = DESCRIPTOR ( ';!Sw' ), 
; 1038 i § STRIP_SIZE = OUT_INDEX; ! redefine register 
: 105 1428 
: Wee 1? 3 string any trailing spaces from the file specification 
: 1056 1431 STRIP_SIZE = 0; 
3; 1057 14 ¢ DECR T FROM ( .FILE SPEC.LEN - 1) 700 DO 
; 1058 14 IF .FILE_SPEC_PTR ~1 J NEQ 
: 1020 1438 THEN BEGIN 
> 1061 1436 STRIP_SIZE = .1 + 1; 
3 1N96 1eer EXITLOOP; 
: 1064 1435 ; FILE_SPEC_LEN = .STRIP_SIZE; 
: 1908 102) § move the ( name and type ) or ANSI file id into the output buffer 
: 1068 1403 if .VMS_NAME C 0 
: 1069 1444 THEN 
Sift Ee hee 
E STs ieee H just move the fields if a VMS spec 
; 1074 1449 3 CHSMOVE ( .FILE SPEC LEN, .FILE_SPEC_PTR, RESULTANT_NAME ); 
: 1973 1630 ; OUT INDEX = .FICE_SPEC_LEN; 
: 1077 1458 
We HE Seay 
> 1080 1455 
3; 1081 1456 3 ! ANSI spec is placed in quotes and all quotes goto double quotes 
ie ete hates 
> 1084 1459 : INDEX : LONG, ! index into the input string 
; 1085 1460 3 MOVE SIZE : LONG, ! the number of characters to be moved 
: 1086 160) QUOTE_CHAR : LONG; ! Location of a quota character 
; 1088 1468 ' stuff initial quote into output buffer 
: 1090 1465 RESULTANT_NAME [ 0] = ''"; 
: 1098 1467 | initialize the indices 
: 109% 1469 IN_INDEX = 0; 
2 199? 1en8 OUT_INDEX =1; 
: 344 16% loop for each string ending with a quote 
: 1099 1474 WHILE NOT CHSFAIL ( 
; 1100 1475 QUOTE_CHAR = CHSFIND_CH ( .FILE_ SPEC_LEN 
> 1101 147% FILE SPEC_PTR £ .IN_INDEX 1, 
; 1102 147 = 7 
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1 
1 

0 
BEGIN 


' calculate the number of orecyers to be moved 
and move the characters including the quote character 


MOVE SIZE = ( ,QUOTE_CHAR - FILE_SPEC_PTR C .IN_INDEX ] ) + 1; 
CHSMOVE ( .MOV 
FI IN INDEX 


LE_SPEC_PTR f ) 
RESUCTANT-NAME £ .OUT_INDEX 4 ); 
} adjust the indices, and the number of characters remaining 
IN_ INDEX = .IN_INDEX + .MOVE_SIZE; 
OUT_ INDEX = ,OUT_INDEX + .MOVE_SIZE; 
FILE_SPEC_LEN = .FILE_SPEC_LEN = .MOVE_SIZE; 
stuff extra quote characters, bump index 
RCSULTANT_NAME C .OUT_INDEX ] o om, 
OUT_INDEX™= .OUT_INDER + 1; 
END; 
move the remaining character into the output buffer 
CHSMOVE ( 


FI , 
FILE SPEC_PTR f . IN_INDEX J 
“OUT_INDEX j ); 


stuff final quote characters and null type, bump index 


RESULTANT_NAME C .OUT_INDEX J ptaet 
RESULTANT-NAME C .OUT~INDEX + 1) = '.'; 
OUT _ INDEX = .OUT_INDER + 2; 


! adjust the descriptor to point to the remaining of the output buffer 
and FAO the version number into the output buffer 


RESULTANT _DESC c 0 ; = RESULTANT_MAX LEN - .OUT INDEX: 
RESULTANT_DESC C 1 ) = RESULTANT_NAME C .OUT_INDEX J; 

SYS$SFAO (“FAO_VERSION, RESULTANT_DESC, RESULTANT_DESC, .VERSION ); 
point the descriptor to the entire file spec in the output buffer 


RESULTANT_DESC f 0 } = RESULTANT DESC C 0 J + .OUT_INDEX; 
RESULTANT_DESC C 1 ) = RESULTANT_NAME; 


return the output buffer to the user 


iF NOT KERNEL_CALL ( RETURN_RESULTANT_SPEC, RESULTANT_DESC ) 
THEN ERR_EXIT™( ); 


END; ! end of routine RESULTANT _STRING 
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01 
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ts 


000' 


O7FC 00000 
5 000 
C2 0000 
D4 QOO0A 
dO BR0e 
91 9001 
13 00019 
Sh 
11 00010 
F4 QOOIF 
DO 00022 
5 9554 

8 0002A 
DO 00030 
90 90036 
7D 00036 
4 0003¢ 

A B20 
12 00046 
D4 Base 
DO OO04A 
13 00040 
C3 Q004F 
9 Bo0as 
28 0005 
CO 0005C 
CO QO05F 
gs 0062 

0066 
D6 Been 
11 Q006C 
28 0006E 
CO 00076 
90 o0re 
€9 G0088 
C 0 
C wit 
pp 8 

F 
9F 000 
9F 0009C 


: a318 VAX=11 Bliss: -32 


V4.0-742 
DISKSVMSMASTER: CMTAACP. SRCJPARSE. 832; r 


\5 1 SW\ 
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“LONG 4 
“ADDRESS P.AAG 


P.A 
WORK Ane, SYS$FAO 
SYSSTMK 


RESULTANT STRING, Save R2,R3,R4,R5,R6,R7,- 
R sor tant _NAME, R10 


STRIP ze 
BILE. spec _LEN, I 


QP ILE_SPEC_PTRCII, #32 
1<RO), STRIP_SIZE 


1, 1$ 
sfRIP SIZE, FILE_SPEC_LEN 


V E 
FILE Spe _LEN, @FILE_SPEC_PTR, - 
RESULTANT NAME 

FILE SPEC “LEN, OUT_INDEX 


#34, oRESULTANT _NAME 
it (e°s vee PTR, IN_INDEX 
é 4, “FILE~SPEC_LEN, CROs 
é¢ 
rs QUOTE_CHAR 

QUOTE, CHAR, R1 
Reads MOVE SIZ 


MOVE_S1ZE, TR2), RESULTANT_NAMECOUT_INDEX) 
MOVE SIZE. IN INDEX 


M ve- “SIZE. FILE” Auiae 
#34, “RESULTAN OUT. INDEX) 
T” INDEX 
FILE_SPEC_LEN aF ILE E SPEC PTRCIN_INDEX3, - 
Stee NARECOUT DEX 
Hit, RESU CTANT_N Buel INDEX] 
SULTANT NAM +1COOT_ INDEX) 


‘our N 
a INDEX, #164, RESULTANT DESC 
R 0; OUT_INDEX, RESULTANT_DESC+4 


PUSHL 

PUSHAB RESULTANT_DESC 
PUSHAB RESULTANT DESC 
PUSHAB FAO_VERSION 


$3 


Saat otto 
PELL PKK S 
SNOL WM LEW 
SOViUTG OWOWUO 


ee ee ee ee ee ee ee ee ee 
oOo OnoOoOOOoOUeO o~a 
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000000006 9F 9 FB A CALLS #4, @#SYSSFAO 
bE 4 § A ADDL out INDEX, RESULTANT_DESC 
4 AE A 9E OOOAA MOV tine NAME, RESUCTANT_DESC+4 
f 0D A PUSHL ; 
DD 0008 PUSHL 
0000v f BP PuSHAB TURN_RESULTANT_SPEC 
000000006 3 4 re B8 CALLS i 1 BESYSSCAK KRNL~ 
2 0 E BF BLBS 

Br ce CHMU 
4 000C4 9$: RET 


; Routine Size: 197 bytes, Routine Base: S$CODES + 085C 


3 
v04=600 IES QB:ER:12 YMGdIWBAMSHEHE MiB? Bacapanse.oszlt®" 


—" 


es 


PRI at i SIRE re | 
| 


v0 


20:18 VAI! BLisg=32 V4. 0-742 4 
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; 1138 } ? } ROUTINE RETURN_RESULTANT_SPEC ( FILE_NAME_DESC ) = ; 
: 1161 1535 1 t+ : 
; 1186 1 $ 1/ | ; 
; 116 1 1! FUNCTIONAL DESCRIPTION: ‘ 
$ 1188 : 3 : } This routine enables the write-back of the result file name string. | ‘ 
; 1166 1540 1 ! CALLING SEQUENCE: | é 
: 1167 1541 1! RETURN_RESULTANT_SPEC ( ARG! ) ‘ 
3; 1168 1 tg 1! must be called if kernel access mode ° 
3; 1169 1545 1! : 
3; 1170 1544 1 ! INPUT PARAMETERS: ° 
3; 1171 1545 1! ARG1 = address of file name string descriptor ‘ 
; 1178 1346 1) : 
3 117 1547 1 ! IMPLICIT INPUTS: ‘ 
7 1174 1548 1! IO_PACKET = address of current request packet ‘ 
3 1175 1549 1! 4 
3: 1176 1550 1 ! OUTPUT PARAMETERS: ‘ 
3 1177 1551 1! none e 
: 1178 1326 1! ‘ 
3; 1179 1555 1°! IMPLICIT OUTPUTS: ° 
; 1180 1554 1! none ° 
3; 1181 1555 1! H 
3; 1182 1556 1 ! ROUTINE VALUE: ‘ 
: 1183 1557 1! 0 - failure ° 
> 1186 1558 1! 1 = success ° 
3; 1185 1559 1! ° 
3: 1186 1560 1 ! SIDE EFFECTS: ; 
; 1187 1561 1! enables write back ‘ 
: 1188 1366 1! . 
: 1189 1565 1 ! USER ERRORS: ; : 
; 1190 1564 1! SS$_RESULTOVF - file name string overflows buffer ‘ 
: 1191 1565 1 !-- 
3 1138 1396 1 ’ 
3 119 156 BEGIN 
3 1194 1568 
3 1195 1569 LOCAL 
3 1196 1570 SIZE, ze of write back data 
3 1130 137) ABD : REF BBLOCKVECTOR C , ABDSC LENGTH J;! addr of buffer descr 
: pad 1378 MAP FILE_NAME_DESC : REF VECTOR C 2, LONG J;! descr of file name string 
: 1201 1575 EXTERNAL 
; \ Og 1376 10_PACKET : REF BBLOCK; ! address of current IRP 
; : 34 1378 H get buffer descriptor address address of buffer descriptors 
; : 4] 1280 ABD = .BBLOCK C .JO_PACKET C IRPSL_SVAPTE J], AIBSL_DESCRIPT J; 
: : 4 1 § return length of result string 
; 10 13 s SIZE = .FILE_NAME_DESC { 0]; 
; ; 16 13 ir Mee C ABDSC_RESL, ABDSW_COUNT ) GEQU 2 
3 1214 15 ( .ABD f ABDSC_RESL, ABDSW_TEXT 
3 1215 1589 ABD C ABDSC"RESL, ABDSW_TEXT : 1) <0, 16> = .SIZE < 0, 16 > 

| 

| 


3 
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ABD C ABDSC_RES, ABDS$W_COUNT J] NEQ 0 

BEGIN 

if result string overflows buffer, return error 
Hes SttE GTRU .ABD C ABDSC_RES, ABDS$W_COUNT J 


If . 
THEN 


BEGIN 
ERROR ( SS$_RESULTOVF ); 
RETURN 0; 


ELSE 
CHSCOPY ( .SIZE, .FILE_NAME DESC {C1 J, 0, 
-ABD C ABOSC_RES, ABD$SW_COUNT 
( [ABD £ ABDSC"RES, ABDSWTTEXT 
ABD C ABDSC"RES, ABDSWITEXT J + 1 )); 


WIA IAIN PININININININ 2 2 


SODNANEWN "OO OONAULS WN OODONS 


ae 


END; 
RETURN 1; 
END; ! end of routine RETURN_RESULTANT_SPEC 


Se Se Se Oe Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se ee Se tee 
ak a Dt td td bs a — 3 a tk 2 nts tt et 
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.EXTRN USER_STATUS 


003C 00000 RETURN_RESULTANT_SPEC: 

-WORD Save R2,R3,R4,R5 3: 1533 

50 00006 CF D0 0000 MOVL 10 PACKET, RO : 1580 
51 2¢ BO DO 0000 MOVL  @4%(RO), ABD : 

53 04 ac 00 00008 MOVL FILE _NAME DESC, R3 + 1584 
54 63 DO O000F MOVL (R3), SIZE 3 

02 1A A1_s«&B1 «00012 CMPW 86-26 (ABD), #2 : 1586 
OE iF 0016 BLSSU_1$ ; 

52 18 Al 9E 00018 VAB 24(ABD), R2 : 1588 
5 63 C 0001C MOVZWL (R2) RO ; 

01 A240 9F OOOTF USHAB 1(R25CRO) : 1589 
1 54 80 0023 MOVW ut a(SP)+ : 

5 22. «AI 026 1$: MOVZWL (ABD), R2 : 1592 
1D 7 0 A BEQL $ ; 

52 54 D C CMPL size. R2 : 1598 
09 1B 0002F BLEQU 2$ ; 

00006 CF 0214 8F 8 1 OVW #532, USER_STATUS + 1601 

iF BRB 4$ > 160 

51 20 0 A 28: ADDL2 #32, R1 + 160 
2 61 ¢ p MOVZ2WL (R15. RO F 
52 00 04 8B 4 2¢ 4 VCS SIZE, a4(R3), #0, R2, 1(R1)CROI ; 
01 A140 4 3 

50 01 pO 00049 38: MOVL #1, RO > 1612 
4 0004C RET ; 

50 04 00040 4$: CLRL = RO > 1614 
4 0004F RET ; 


Sep-1984 VAX=-11 Bliss-32 V4. 
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; Routine Size: 80 bytes, Routine Base: $CODE$ + 0921 


> 1241 1615 1 

& tg 1918 1 

3: 124 1617 1 END 

> 1244 1918 1 

3 12465 1619 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: SCODES 2417 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 

UT ea, ere oe Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 33 0 1000 00:01.9 
; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:PARSE/OBJ=OBJ$:PARSE MSRC$:PARSE/UPDATE=(ENH$: PARSE) 
3; Size: 1373 code + 1044 data bytes 

3; Run Time: 0: 3) 3 

; Elapsed Time: 

3 Lines/CPU Min: 3099 

3 Lexemes/CPU-Min: 18319 

3 penery Used: 154 pages 

3; Compilation Complete 
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